home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 July / Ahoy_Magazine_87-07_1987_Double_L_Side_A.d64 / Data Creator 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  42 lines
  1. 100 rem* data creator --- shawn k. smith
  2. 110 s=00828:printchr$(147)"[208]oking [196]ata"
  3. 120 ford=stos+190:ready:c=c+y:poked,y
  4. 130 next:deffnh(d)=int(d/256)
  5. 140 deffnl(d)=d-fnh(d)*256:print
  6. 150 if c=26315 then180
  7. 160 print"?? wrong data count
  8. 170 [153]"recheck data statements":[144]
  9. 180 l[178][165]l(d):h[178][165]h(d)
  10. 190 [129]t[178]1[164]3:[135]y:[151]s[170]y,l:[151]s[170]y[170]1,h:[130]:d2[178]s[170]82:d4[178][165]l(s[170]184)
  11. 200 d[178]d[170]1:l[178][165]l(d):h[178][165]h(d):[151]s[170]070,l
  12. 210 [151]s[170]071,h:[151]s[170]177,l:[151]s[170]178,h
  13. 220 [151]s[170]73,[165]l(d2):[151]s[170]78,[165]h(d2)
  14. 230 [151]s[170]105,d4:[151]s[170]107,[165]h(s[170]184)
  15. 240 [153]"sys"s",starting line #, start addr., end addr., # of values per line
  16. 250 end
  17. 260 data 032,253,174,032,138,173,032,247
  18. 270 data 183,132,251,133,252,032,253,174
  19. 280 data 032,138,173,032,247,183,132,172
  20. 290 data 133,173,032,253,174,032,138,173
  21. 300 data 032,247,183,132,195,133,196,032
  22. 310 data 241,183,134,253,138,240,010,165
  23. 320 data 195,197,172,165,196,229,173,176
  24. 330 data 003,076,072,178,173,002,003,141
  25. 340 data 191,192,173,003,003,141,192,192
  26. 350 data 169,082,141,002,003,169,192,141
  27. 360 data 003,003,165,253,133,254,166,251
  28. 370 data 165,252,032,205,189,024,165,251
  29. 380 data 105,010,133,251,144,002,230,252
  30. 390 data 169,184,160,192,032,030,171,160
  31. 400 data 000,177,172,170,152,032,205,189
  32. 410 data 165,173,197,196,208,006,165,172
  33. 420 data 197,195,240,038,032,219,252,198
  34. 430 data 254,240,007,169,044,032,210,255
  35. 440 data 208,221,036,145,016,020,032,215
  36. 450 data 170,169,002,133,198,169,145,141
  37. 460 data 119,002,169,013,141,120,002,108
  38. 470 data 191,192,173,191,192,141,002,003
  39. 480 data 173,192,192,141,003,003,208,222
  40. 490 data 032,068,065,084,065,032,000
  41. 500 data 064,168,171:rem 4 relocation
  42.